Dit voorbeeld maakt gebruik van de instructie Close om alle drie de bestanden die zijn geopend voor Output, te sluiten.
Dim I, FileName
For I = 1 To 3 ' Loop 3 times.
FileName = "TEST" & I ' Create file name.
Open FileName For Output As #I ' Open file.
Print #I, "Dit is een test." ' Write string to file.
Next I
Close ' Close all 3 open files.